--- a/UndefObj.st	Sat Aug 24 12:08:45 1996 +0200
+++ b/UndefObj.st	Wed Aug 28 15:19:12 1996 +0200
@@ -193,7 +193,7 @@
              and modify the source code
             "
             methodDict := MethodDictionary new:3.
-            #(#class #isBehavior #doesNotUnderstand) do:[:sel|
+            #(#class #isBehavior #doesNotUnderstand:) do:[:sel|
                 method := (Object compiledMethodAt:sel) copy.
                 method source: method source , '
 "
@@ -290,5 +290,5 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.24 1996-06-12 22:11:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.25 1996-08-28 13:19:12 cg Exp $'
 ! !