--- src/aoe/TclLabel.cc.orig	Thu Apr 23 21:52:07 1998
+++ src/aoe/TclLabel.cc	Mon Nov 29 09:15:11 1999
@@ -45,7 +45,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()));