--- a/ClassCategoryReader.st	Thu Jan 18 01:43:40 1996 +0100
+++ b/ClassCategoryReader.st	Thu Jan 18 15:01:29 1996 +0100
@@ -171,9 +171,11 @@
 				     install:true
 				     skipIfSame:true.
 
-			makeSourceRef ifTrue:[
-			    method source = aString ifTrue:[
-				method sourceFilename:sourceFile position:pos 
+			(method notNil and:[method ~~ #Error]) ifTrue:[
+			    makeSourceRef ifTrue:[
+				method getSource = aString ifTrue:[
+				    method sourceFilename:sourceFile position:pos 
+				]
 			    ]
 			]
 		    ] ifFalse:[
@@ -238,6 +240,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.25 1996-01-15 23:21:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.26 1996-01-18 14:01:29 cg Exp $'
 ! !
 ClassCategoryReader initialize!