--- a/DebugView.st	Mon Dec 08 15:00:56 2008 +0100
+++ b/DebugView.st	Tue Dec 09 15:02:19 2008 +0100
@@ -4540,7 +4540,7 @@
     interval isEmpty ifTrue: [^ nil].
     RBParser isNil ifTrue:[^ nil].
 
-    source := codeView contents asString.
+    source := codeView contentsAsString string.
 "/    source := currentMethod notNil 
 "/                ifTrue:[ currentMethod source ] 
 "/                ifFalse:[ codeView contents asString ].
@@ -6537,7 +6537,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.457 2008-11-17 17:31:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.458 2008-12-09 14:02:19 cg Exp $'
 ! !
 
 DebugView initialize!