--- a/DebugView.st	Thu Aug 03 03:38:05 1995 +0200
+++ b/DebugView.st	Thu Aug 10 15:14:54 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.40 1995-07-23 03:18:58 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.41 1995-08-10 13:13:53 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -50,7 +50,8 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.40 1995-07-23 03:18:58 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.41 1995-08-10 13:13:53 claus Exp $
+$Revision: 1.41 $
 "
 !
 
@@ -1588,11 +1589,15 @@
 	] ifFalse:[
 	    codeView contents:code.
 	    (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[
-		lineNrInMethod > codeView list size ifTrue:[
-		    lineNrInMethod := codeView list size + 1
-		].
-		codeView selectLine:lineNrInMethod.
-		codeView makeSelectionVisible
+"/                lineNrInMethod > codeView list size ifTrue:[
+"/                    lineNrInMethod := codeView list size + 1
+"/                ].
+"/                codeView selectLine:lineNrInMethod.
+"/                codeView makeSelectionVisible
+		lineNrInMethod <= codeView list size ifTrue:[
+		    codeView selectLine:lineNrInMethod.
+		    codeView makeSelectionVisible
+		]
 	    ].
 	].