--- src/aoe/TclLabel.cc.orig	Sat Nov 27 18:45:09 1999
+++ src/aoe/TclLabel.cc	Sat Nov 27 18:45:24 1999
@@ -47,7 +47,7 @@
 #include "TclLabel.hh"
 #include "TclApp.hh"
 
-TclLabel::clear(void)
+int TclLabel::clear(void)
 {
   TclApplication *pcApp = (TclApplication *)getExtraArgument();
   return (pcApp->evalf("%s configure -text {}", getName()));