$NetBSD: patch-ae,v 1.7 2000/12/28 13:30:21 hubertf Exp $

--- ../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++)
     {