--- a/DebugView.st	Wed Feb 11 19:53:08 2004 +0100
+++ b/DebugView.st	Wed Feb 11 23:08:38 2004 +0100
@@ -5689,7 +5689,9 @@
                     ].
                     implementorClass notNil ifTrue:[
                         (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
-                            code := highlighter formatMethod:code in:implementorClass.
+                            code size < 100000 ifTrue:[
+                                code := highlighter formatMethod:code in:implementorClass.
+                            ]
                         ]
                     ]
                 ].
@@ -5837,7 +5839,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.359 2004-01-27 14:59:21 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.360 2004-02-11 22:08:38 cg Exp $'
 ! !
 
 DebugView initialize!