--- a/Class.st	Tue Jan 14 22:19:53 1997 +0100
+++ b/Class.st	Wed Jan 15 16:32:57 1997 +0100
@@ -3861,7 +3861,9 @@
 
     "return a primitiveSpecification component as string or nil"
 
-    |pos stream string|
+    |owner pos stream string|
+
+    (owner := self owningClass) notNil ifTrue:[^ owner getPrimitiveSpecsAt:index].
 
     primitiveSpec isNil ifTrue:[^ nil].
     pos := primitiveSpec at:index.
@@ -3871,18 +3873,20 @@
      position within the classes sourcefile ...
     "
     pos isNumber ifTrue:[
-	classFilename notNil ifTrue:[
-	    stream := self sourceStream. 
-	    stream notNil ifTrue:[
-		stream position:pos+1.
-		string := stream nextChunk.
-		stream close.
-		^ string
-	    ]
-	].
-	^ nil
+        classFilename notNil ifTrue:[
+            stream := self sourceStream. 
+            stream notNil ifTrue:[
+                stream position:pos+1.
+                string := stream nextChunk.
+                stream close.
+                ^ string
+            ]
+        ].
+        ^ nil
     ].
     ^ pos
+
+    "Modified: 15.1.1997 / 15:29:30 / stefan"
 !
 
 setPrimitiveSpecsAt:index to:aString
@@ -4728,6 +4732,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.243 1997-01-10 15:04:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.244 1997-01-15 15:32:57 stefan Exp $'
 ! !
 Class initialize!