diff --git a/core/classes/singleton/singleton-tests.factor b/core/classes/singleton/singleton-tests.factor
index b7aedb5b99..700bd7f1e3 100644
--- a/core/classes/singleton/singleton-tests.factor
+++ b/core/classes/singleton/singleton-tests.factor
@@ -6,7 +6,7 @@ SINGLETON: bzzt
 { t } [ bzzt bzzt eq? ] unit-test
 
 GENERIC: zammo ( obj -- str )
-{ } [ M: bzzt zammo drop "yes!" ; ] unit-test
+M: bzzt zammo drop "yes!" ;
 { "yes!" } [ bzzt zammo ] unit-test
 
 SINGLETON: omg