--- a/stx_goodies_petitparser.st	Tue Sep 08 02:49:45 2015 +0100
+++ b/stx_goodies_petitparser.st	Tue Sep 08 03:20:10 2015 +0100
@@ -347,16 +347,16 @@
 
         Stdout nextPutAll: 'Exporting '; nextPutLine: pkgnm.
         mcpkg := MCPackage named: pkgnm.
-        mcwc := mcpkg workingCopy.
+        mcwc := mcpkg workingCopy.        
         mcvi := HGMCVersionInfo forPackage: pkgnm.
-        mcvi message: message.
+        mcvi message: message.        
         [
            mcversion := mcwc newVersion.
-           mcversion snapshot includeExtrasForSTX: false.
+           mcversion snapshot options includeExtrasForSTX: false.
         ] on: MCVersionNameAndMessageRequest do:[:ex |
             ex resume: (Array with: mcvi name with: message)
         ].
-        mcversion info: mcvi.
+        mcversion info: mcvi.	
         mcrepo storeVersion: mcversion.
     ].
 
@@ -368,7 +368,7 @@
     "
 
     "Created: / 04-10-2014 / 21:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-06-2015 / 08:06:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-09-2015 / 00:20:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !stx_goodies_petitparser class methodsFor:'documentation'!