--- a/VersionDiffBrowser.st	Sat Apr 07 15:57:42 2018 +0200
+++ b/VersionDiffBrowser.st	Mon Apr 09 16:03:36 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -2333,10 +2331,16 @@
                 ^ 'Same comment'.
             ].
 
-            self halt.
+            changeA isPrimitiveChange ifTrue:[
+                changeB isPrimitiveChange ifFalse:[^ 'Different change types'].
+                (changeA sameAs:changeB) ifFalse:[^ 'Different class primitive'].
+                ^ 'Same primitive'.
+            ].
         ].    
     ].
     ^ nil
+
+    "Modified: / 09-04-2018 / 12:21:27 / stefan"
 !
 
 update:something with:parameter from:changedObject
@@ -3524,7 +3528,7 @@
             ].
         ].
         changeClassName notEmptyOrNil ifTrue:[
-            selectorString := ' » ',selectorString
+            selectorString := ' » ',selectorString
         ]
     ].