# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1224627659 -7200
# Node ID e8dcdce0b2aec2f9204f0e9c096a90a4381a9d98
# Parent  8fd6e42fce7bebcbaae0b8e8470b787b56e1dbc1
changed #classMenuCompareTwoRepositoryVersions

diff -r 8fd6e42fce7b -r e8dcdce0b2ae Class.st
--- a/Class.st	Wed Oct 22 00:20:11 2008 +0200
+++ b/Class.st	Wed Oct 22 00:20:59 2008 +0200
@@ -1369,7 +1369,7 @@
 aFilename notNil ifTrue:[
     (aFilename asFilename baseName startsWith:'st') ifTrue:[
         (aFilename asFilename baseName at:3) isDigit ifTrue:[
-            self halt
+            self halt:'this should not be reached'
         ].
     ].
 ].
@@ -4890,5 +4890,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.531 2008-09-08 10:12:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.532 2008-10-21 22:20:59 cg Exp $'
 ! !