$NetBSD$

--- ../src/ui_fns.c.orig	Mon Sep  4 18:30:43 2000
+++ ../src/ui_fns.c
@@ -274,7 +274,8 @@
   u_int base;
   char buf[128];
 
-  Tcl_Eval(interp, "clock format [clock seconds] -format %w");
+  sprintf(buf, "clock format [clock seconds] -format %w");
+  Tcl_Eval(interp, buf);
   base = atoi(interp->result);
   for(i=0;i<7;i++)
     {
