--- a/Method.st	Thu Dec 12 14:39:08 1996 +0100
+++ b/Method.st	Fri Dec 13 13:28:15 1996 +0100
@@ -2316,12 +2316,12 @@
     sourceString := self source.
     sourceString notNil ifTrue:[
         parser := Parser perform:parseSelector with:sourceString.
-        (parser isNil or:[parser == #Error]) ifTrue:[^ nil].
+        (parser isNil or:[parser == #Error]) ifTrue:[^ valueIfNoSource].
         ^ parser perform:accessSelector
     ].
     ^ valueIfNoSource
 
-    "Modified: 4.11.1996 / 22:25:37 / cg"
+    "Modified: 12.12.1996 / 15:38:59 / cg"
 !
 
 previousVersion
@@ -2645,6 +2645,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.111 1996-12-02 17:35:17 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.112 1996-12-13 12:28:15 cg Exp $'
 ! !
 Method initialize!