--- a/mercurial/HGCommand.st	Thu Nov 15 19:18:38 2012 +0000
+++ b/mercurial/HGCommand.st	Thu Nov 15 19:18:43 2012 +0000
@@ -331,8 +331,8 @@
     OperatingSystem isMSWINDOWSlike ifTrue:[
 "/        h := Win32OperatingSystem registryEntry 
 "/                key:'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\App Paths\svn.exe'.
-"/        h notNil ifTrue:[GitExecutable := h valueNamed:''].
-"/        GitExecutable notEmptyOrNil ifTrue:[^ GitExecutable]
+"/        h notNil ifTrue:[HGExecutable := h valueNamed:''].
+"/        HGExecutable notEmptyOrNil ifTrue:[^HGExecutable]
         HGExecutable := OperatingSystem pathOfCommand:'hg'.
         ^HGExecutable
     ].
@@ -346,7 +346,7 @@
 
 
     "
-     GitExecutable := nil.
+     HGExecutable := nil.
      self basicNew executable
     "
 
@@ -439,7 +439,7 @@
 !
 
 parse:stream
-    "superclass GitCommand says that I am responsible to implement this method"
+    "superclass Command says that I am responsible to implement this method"
 
     ^ nil
 
@@ -485,7 +485,7 @@
 !
 
 parse:stream
-    "superclass GitCommand says that I am responsible to implement this method"
+    "superclass HGCommand says that I am responsible to implement this method"
 
     "Nothing to do"
 
@@ -617,7 +617,7 @@
 !
 
 parse:stream
-    "superclass GitCommand says that I am responsible to implement this method"
+    "superclass HGCommand says that I am responsible to implement this method"
 
     ^ nil
 
@@ -638,7 +638,7 @@
 !
 
 parse:stream
-    "superclass GitCommand says that I am responsible to implement this method"
+    "superclass HGCommand says that I am responsible to implement this method"
 
     ^ nil