get waggler encoding right

diff --git a/layout/data2safety b/layout/data2safety
index 66b1e0de6687ffc9bd725178d3987c5aff9ac221..c090387945d71a828f6cd053e82b23510a421d36 100755 (executable)
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -328,7 +328,7 @@ sub boob2objnum_waggle {
     # waggle command is      1010 1sss OSS wwwwV
     # so waggler objnum is   sss SS wwww
     $boardnum= (($boardnum & 0x07) << 2) | ($boardnum >> 3);
-    return ($boardnum << ($maxwaggleixln2+1)) | $obj;
+    return ($boardnum << $maxwaggleixln2) | $obj;
 }
 
 sub boob2objnum_pt {