X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=58760472c440c90a1017205826760befce96e570;hb=c23eb53a452d0aea1a26ba60fe8ce9abcb77ea02;hp=1cd7c7085e0f931cf507cd196005a090c0152afe;hpb=955c4eb992b45e48a1a3dad6418236431ddcd095;p=mTask.git

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 1cd7c70..5876047 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -68,7 +68,7 @@ bclength _ = 1
 
 toByteVal :: BC -> [Char]
 toByteVal b
-# bt = toChar $ consIndex{|*|} b + 1
+# bt = toChar $ consIndex{|*|} b
 = [bt:case b of
 		(BCPush i) = i
 		(BCLab i) = [toChar i]