--- a/extensions.st	Tue Jul 18 15:26:25 2017 +0200
+++ b/extensions.st	Tue Jul 18 15:26:52 2017 +0200
@@ -1526,11 +1526,17 @@
     |basePrinter|
 
     basePrinter := 
-        [:base :padding |
+        [:base :padding :reverse|
             String 
                 streamContents:[:s |
-                    self byteSize to:1 by:-1 do:[:i |
-                        (((self basicAt:i) printStringRadix:base) paddedTo:padding with:$0)
+                    |iv|
+                    
+                    iv := reverse 
+                            ifTrue:(self byteSize to:1 by:-1)
+                            ifFalse:(1 to:self byteSize).
+
+                    iv do:[:i |
+                        (((self basicAt:i) printStringRadix:base) leftPaddedTo:padding with:$0)
                             printOn:s.
                         s space.    
                     ]
@@ -1554,13 +1560,21 @@
             [
                 PrintfScanf printf:'%f' argument:self.
             ];
+        when:[ UninterpretedBytes isBigEndian not] add:'-MSB binary' ->
+            [
+                basePrinter value:2 value:8 value:true
+            ];
+        when:[ UninterpretedBytes isBigEndian not] add:'-MSB hex' ->
+            [
+                basePrinter value:16 value:2 value:true
+            ];
         add:'-binary' ->
             [
-                basePrinter value:2 value:8
+                basePrinter value:2 value:8 value:false
             ];
         add:'-hex' ->
             [
-                basePrinter value:16 value:2
+                basePrinter value:16 value:2 value:false
             ];
         yourself
 
@@ -1572,7 +1586,7 @@
     "
 
     "Created: / 20-03-2012 / 22:34:46 / cg"
-    "Modified (comment): / 18-07-2017 / 14:33:31 / cg"
+    "Modified: / 18-07-2017 / 15:17:43 / cg"
 ! !
 
 !MenuView methodsFor:'accessing-behavior'!