--- a/DebugView.st	Thu Oct 16 17:05:28 1997 +0200
+++ b/DebugView.st	Tue Oct 21 20:39:32 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 11:39:42 pm'                !
+'From Smalltalk/X, Version:3.2.1 on 19-oct-1997 at 2:47:42 pm'                  !
 
 StandardSystemView subclass:#DebugView
 	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
@@ -761,7 +761,7 @@
 
     codeView acceptAction:nil.
     codeView doItAction:nil.
-    codeView contents:nil.
+    "/ codeView contents:nil.
 
     (exitAction ~~ #step) ifTrue:[
         receiverInspector release.
@@ -960,7 +960,7 @@
 
     "Created: 24.11.1995 / 19:52:54 / cg"
     "Modified: 17.4.1997 / 13:01:32 / stefan"
-    "Modified: 11.8.1997 / 16:03:11 / cg"
+    "Modified: 19.10.1997 / 01:21:47 / cg"
 !
 
 openOn:aProcess
@@ -3341,7 +3341,7 @@
             ].
         ].
 
-	selectedContext := con.
+        selectedContext := con.
         m := contextView middleButtonMenu.
         (m notNil and:[selectedContext notNil]) ifTrue:[
             m enableAll:#(implementors senders inspectContext)
@@ -3524,7 +3524,7 @@
                     codeView contents:nil.
                 ]
             ] ifFalse:[
-                codeView contents:code.
+                code ~= (codeView contents) ifTrue:[codeView contents:code].
 
                 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[
 "/                    lineNrInMethod > codeView list size ifTrue:[
@@ -3618,12 +3618,12 @@
     ]
 
     "Created: 14.8.1997 / 20:15:00 / cg"
-    "Modified: 14.8.1997 / 20:19:14 / cg"
+    "Modified: 19.10.1997 / 01:20:58 / cg"
 ! !
 
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.176 1997-09-21 18:19:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.177 1997-10-21 18:38:52 cg Exp $'
 ! !
 DebugView initialize!