diff --git a/benchmarks/benchmark/regex-dna/regex-dna.factor b/benchmarks/benchmark/regex-dna/regex-dna.factor
index c3aa6232ad..aa0b1a56ac 100644
--- a/benchmarks/benchmark/regex-dna/regex-dna.factor
+++ b/benchmarks/benchmark/regex-dna/regex-dna.factor
@@ -28,17 +28,17 @@ IN: benchmark.regex-dna
 
 : do-replacements ( string -- string' )
     {
-        { R/ B/ "(c|g|t)" }
-        { R/ D/ "(a|g|t)" }
-        { R/ H/ "(a|c|t)" }
-        { R/ K/ "(g|t)" }
-        { R/ M/ "(a|c)" }
-        { R/ N/ "(a|c|g|t)" }
-        { R/ R/ "(a|g)" }
-        { R/ S/ "(c|t)" }
-        { R/ V/ "(a|c|g)" }
-        { R/ W/ "(a|t)" }
-        { R/ Y/ "(c|t)" }
+        { R[[ B]] "(c|g|t)" }
+        { R[[ D]] "(a|g|t)" }
+        { R[[ H]] "(a|c|t)" }
+        { R[[ K]] "(g|t)" }
+        { R[[ M]] "(a|c)" }
+        { R[[ N]] "(a|c|g|t)" }
+        { R[[ R]] "(a|g)" }
+        { R[[ S]] "(c|t)" }
+        { R[[ V]] "(a|c|g)" }
+        { R[[ W]] "(a|t)" }
+        { R[[ Y]] "(c|t)" }
     } [ re-replace ] assoc-each ;
 
 SYMBOL: ilen
diff --git a/demos/rosetta-code/image-noise/image-noise.factor b/demos/rosetta-code/image-noise/image-noise.factor
index 97058be7dd..f39cacf6db 100644
--- a/demos/rosetta-code/image-noise/image-noise.factor
+++ b/demos/rosetta-code/image-noise/image-noise.factor
@@ -2,7 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors calendar images images.viewer kernel math
 math.parser models models.arrow random sequences threads timers
-ui ui.gadgets ui.gadgets.labels ui.gadgets.packs ;
+ui ui.gadgets ui.gadgets.labels ui.gadgets.packs
+ui.gadgets.status-bar ui.gadgets.worlds ;
 IN: rosetta-code.image-noise
 
 : bits>pixels ( bits -- bits' pixels )
diff --git a/frameworks/gpu/shaders/shaders.factor b/frameworks/gpu/shaders/shaders.factor
index d8c911945c..df20d24d5e 100755
--- a/frameworks/gpu/shaders/shaders.factor
+++ b/frameworks/gpu/shaders/shaders.factor
@@ -591,7 +591,7 @@ SYNTAX: \ GLSL-SHADER:
         scan-word
         f
         lexer get line>>
-        scan-object
+        scan-object ";" expect
     ] dip
     shader boa
     over reset-generic
diff --git a/webapps/webapps/blogs/blogs.factor b/webapps/webapps/blogs/blogs.factor
index 27ddc58afe..252e93f0dc 100644
--- a/webapps/webapps/blogs/blogs.factor
+++ b/webapps/webapps/blogs/blogs.factor
@@ -34,7 +34,7 @@ can-administer-blogs? define-capability
 
 TUPLE: entity id author date content ;
 
-GENERIC: entity-url ( entity -- url )
+GENERIC: entity-url ( entity -- url ) ;
 
 M: entity feed-entry-url entity-url ;
 
diff --git a/webapps/webapps/pastebin/pastebin.factor b/webapps/webapps/pastebin/pastebin.factor
index 6da3ba9c45..2687a513d6 100644
--- a/webapps/webapps/pastebin/pastebin.factor
+++ b/webapps/webapps/pastebin/pastebin.factor
@@ -44,7 +44,7 @@ entity f
     { "contents" "CONTENTS" TEXT +not-null+ }
 } define-persistent
 
-GENERIC: entity-url ( entity -- url )
+GENERIC: entity-url ( entity -- url ) ;
 
 M: entity feed-entry-title summary>> ;