1 files changed, 7 insertions, 1 deletions
diff --git a/core.e b/core.e
index 44f9fd5..e181d4f 100644
--- a/core.e
+++ b/core.e
@@ -1219,8 +1219,14 @@ here !
 
 ~ (output point, alignment byte width -- output point)
 : packalign
+  ~   It's possible the padding will be of length zero, so we have to put the
+  ~ magic comment provide-* command first.
+  ~ : provide-decimal
+  ~ : 0 Alignment padding to width #
   { 2dup /% drop { drop exit } unless
-    swap 0 pack8 swap } forever ;
+    swap 0 pack8 swap
+    ~ : 1 adjust-length
+  } forever ;
 
 
 ~ Binary unpacking