--- a/mercurial/HGChangesetId.st	Fri Nov 30 21:42:46 2012 +0000
+++ b/mercurial/HGChangesetId.st	Fri Nov 30 23:56:15 2012 +0000
@@ -186,19 +186,20 @@
     ^NullId
 
     "
-        HGNodeId null
+        HGChangesetId null
     "
 
     "Created: / 19-10-2012 / 15:51:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 13-11-2012 / 09:54:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 30-11-2012 / 22:00:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGChangesetId methodsFor:'accessing'!
 
 revno
-    ^ revno ? -2
+    ^ revno
 
     "Created: / 13-11-2012 / 09:52:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-11-2012 / 22:05:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 revno:anInteger
@@ -251,9 +252,11 @@
 !HGChangesetId methodsFor:'printing & storing'!
 
 displayOn:aStream
+
     ^self printOn: aStream
 
     "Created: / 13-11-2012 / 09:55:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-11-2012 / 22:01:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 printOn:aStream
@@ -262,15 +265,15 @@
     | rn |
 
     rn := self revno.
-    rn ~~ -2 ifTrue:[
+    rn notNil ifTrue:[
         rn printOn: aStream.
-        self size == 0 ifTrue:[ ^ self ].
+        self isEmpty ifTrue:[ ^ self ].
         aStream nextPut: $:.
     ].
 
-    aStream nextPutAll: (self hexPrintString asLowercase)
+    aStream nextPutAll: (self copyTo: 6) hexPrintString asLowercase
 
-    "Modified: / 16-11-2012 / 22:08:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-11-2012 / 23:42:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGChangesetId methodsFor:'queries'!