--- src/aoe/TclApp.cc.orig	Sat Nov 27 18:38:25 1999
+++ src/aoe/TclApp.cc	Sat Nov 27 18:43:51 1999
@@ -186,9 +186,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;
 }
 
