--- a/RegressionTests__CryptTests.st	Mon Nov 25 11:43:11 2013 +0100
+++ b/RegressionTests__CryptTests.st	Mon Nov 25 11:45:52 2013 +0100
@@ -267,10 +267,19 @@
     ].
     self assert:(s = #[212 114 83 160 109 1 37 83]).
 
+    "/ ------------------------------------------------
+
+    des := DesCipher new key:#[16rFF 16r80 56 78 90 12 34 56].
+    crypt := des encrypt:'12345678'.
+    self assert:(crypt = #[54 60 159 218 32 8 70 60]).
+
+
     "
      self run:#test10_des
      self new test10_des
     "
+
+    "Modified: / 25-11-2013 / 11:45:34 / cg"
 ! !
 
 !CryptTests class methodsFor:'documentation'!