--- a/Parser.st	Wed Oct 23 19:35:11 1996 +0200
+++ b/Parser.st	Wed Oct 23 20:14:11 1996 +0200
@@ -684,16 +684,22 @@
      The given lineNr must be within a block for this to work."
 
     |compiler tree symbolicCodeArray mSource who mClass blocks 
-     maxSoFar innerBlock|
-
-    mSource := aMethod source.
-    mSource isNil ifTrue:[^ nil].
-
-    who := aMethod who.
-    who isNil ifTrue:[^ nil].
+     maxSoFar innerBlock m|
+
+    m := aMethod.
+    who := m who.
+    who isNil ifTrue:[
+        m := m wrapper.
+        m notNil ifTrue:[
+            who := m who.
+        ]
+    ].
     mClass := who at:1.
     mClass isNil ifTrue:[ ^ nil].
 
+    mSource := m source.
+    mSource isNil ifTrue:[^ nil].
+
     "create a compiler, let it parse and create the parsetree"
 
     compiler := self for:(ReadStream on:mSource) in:mClass.
@@ -755,7 +761,7 @@
     ].
     ^ innerBlock.
 
-    "Modified: 23.10.1996 / 16:26:28 / cg"
+    "Modified: 23.10.1996 / 19:07:57 / cg"
 !
 
 parseExpression:aString
@@ -3769,6 +3775,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.100 1996-10-23 15:28:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.101 1996-10-23 18:14:11 cg Exp $'
 ! !
 Parser initialize!