--- a/ChangesBrowser.st	Fri Jul 31 20:13:25 1998 +0200
+++ b/ChangesBrowser.st	Fri Jul 31 20:18:39 1998 +0200
@@ -2197,26 +2197,30 @@
 
     changeNr := changeListView selection.
     changeNr notNil ifTrue:[
-	className := self fullClassNameOfChange:changeNr.
-	className notNil ifTrue:[
-	    isMeta := false.
-	    (className endsWith:' class') ifTrue:[
-		className := className copyWithoutLast:6.
-		isMeta := true.
-	    ].
-	    (cls := Smalltalk classNamed:className) notNil ifTrue:[
-		isMeta ifTrue:[
-		    cls := cls class
-		].
-		SystemBrowser 
-		    openInClass:cls 
-		    selector:(self selectorOfMethodChange:changeNr)
-	    ]
-	]
+        className := self fullClassNameOfChange:changeNr.
+        className notNil ifTrue:[
+            isMeta := false.
+            (className endsWith:' class') ifTrue:[
+                className := className copyWithoutLast:6.
+                isMeta := true.
+            ].
+            (cls := Smalltalk classNamed:className) notNil ifTrue:[
+                isMeta ifTrue:[
+                    cls := cls class
+                ].
+                SystemBrowser 
+                    openInClass:cls 
+                    selector:(self selectorOfMethodChange:changeNr)
+            ] ifFalse:[
+                self warn:'class not found: ''' , className , ''''.
+            ]
+        ] ifFalse:[
+            self warn:'could not extract classname from change'.
+        ]
     ]
 
-    "Created: 24.11.1995 / 23:13:24 / cg"
-    "Modified: 6.12.1995 / 17:09:26 / cg"
+    "Created: / 24.11.1995 / 23:13:24 / cg"
+    "Modified: / 31.7.1998 / 20:17:42 / cg"
 !
 
 doCompare
@@ -2857,5 +2861,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.141 1998-07-17 09:14:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.142 1998-07-31 18:18:39 cg Exp $'
 ! !