--- a/DebugView.st	Thu Sep 11 14:53:22 2003 +0200
+++ b/DebugView.st	Thu Sep 11 14:54:07 2003 +0200
@@ -5552,7 +5552,13 @@
                         and:[sender receiver isBlock]]) ifTrue:[
                             code := sender receiver source.
                         ]
-                    ].
+                    ] ifFalse:[
+                        ((sender := con sender) notNil
+                        and:[((sender selector ? '') startsWith:'valueWith')
+                        and:[sender receiver isMethod]]) ifTrue:[
+                            method := sender receiver.
+                        ]
+                    ]
                 ].
                 method notNil ifTrue:[
                     Error handle:[:ex |
@@ -5768,7 +5774,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.348 2003-08-27 18:24:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.349 2003-09-11 12:54:07 cg Exp $'
 ! !
 
 DebugView initialize!