X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fid3%2Fid3.factor;h=38aa291a3aff4afa9afdd7bfbabf70a65a4ac001;hp=6d9b778ee8d1f2ba08bc5f818149d233230dcab4;hb=3f3d57032bf29190e9bee12d168a4bce6d74653c;hpb=cd1bb8f4c8afba318249c7b756a45aa1c46ea51e

diff --git a/extra/id3/id3.factor b/extra/id3/id3.factor
index 6d9b778ee8..38aa291a3a 100644
--- a/extra/id3/id3.factor
+++ b/extra/id3/id3.factor
@@ -104,7 +104,7 @@ CONSTANT: id3v1+-offset $[ 128 227 + ]
     0 [ [ 7 shift ] dip bitor ] reduce ;
 
 : synchsafe>seq ( n -- seq )
-    dup 1+ log2 1+ 7 / ceiling
+    dup 1 + log2 1 + 7 / ceiling
     [ [ -7 shift ] keep HEX: 7f bitand  ] replicate nip reverse ;
 
 : filter-text-data ( data -- filtered )