--- a/ExecutableFunction.st	Fri Mar 10 10:47:35 2006 +0100
+++ b/ExecutableFunction.st	Fri Mar 10 10:57:47 2006 +0100
@@ -153,7 +153,7 @@
     addr isNil ifTrue:[^ super printOn:aStream].
 
     aStream nextPutAll:self class name; nextPutAll:'(address: 0x'.
-    addr printOn:aStream base:16.
+    addr address printOn:aStream base:16.
     aStream nextPut:$)
 
     "Modified: / 22.4.1996 / 16:36:05 / cg"
@@ -407,5 +407,5 @@
 !ExecutableFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.52 2005-07-08 17:15:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.53 2006-03-10 09:57:47 cg Exp $'
 ! !