diff --git a/repository/Seaside-Tests-Canvas.package/WADefaultScriptGeneratorTest.class/instance/testScripts.st b/repository/Seaside-Tests-Canvas.package/WADefaultScriptGeneratorTest.class/instance/testScripts.st
new file mode 100644
index 000000000..05cd93100
--- /dev/null
+++ b/repository/Seaside-Tests-Canvas.package/WADefaultScriptGeneratorTest.class/instance/testScripts.st
@@ -0,0 +1,9 @@
+testing
+testScripts
+
+	self
+		assert: [ :html |
+         html
+            script: (html logger log: '<!-- <script>');
+            paragraph: 'Test Paragraph' ]
+		gives: '<html><head><title></title></head><body onload="onLoad()"><script type="text/javascript">console.log("\x3C!-- \x3Cscript>")</script><p>Test Paragraph</p><script type="text/javascript">function onLoad(){};</script></body></html>'
\ No newline at end of file
