--- src/aoe/TclApp.cc.orig	Thu Apr 23 21:52:07 1998
+++ src/aoe/TclApp.cc	Mon Nov 29 09:12:33 1999
@@ -191,9 +191,9 @@
    // Call Tcl function to create a Tcl command
    if (Tcl_CreateCommand(ptInterp, 
 			 pcCommand->getName(), 
-			 TclCommand::command,
+			 &TclCommand::command,
 			 (ClientData)pcCommand,
-			 TclCommand::cleanUp) == NULL) return 0;
+			 &TclCommand::cleanUp) == NULL) return 0;
    return 1;
 }