X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/jlisp/blobdiff_plain/a2e7266a20fff562054c0f546e4a49c03b93ce20..fc7489de87bbf0cfadf10f6f441c049d7b2bece1:/rolling.lisp

diff --git a/rolling.lisp b/rolling.lisp
index 61874c7..7f9b342 100644
--- a/rolling.lisp
+++ b/rolling.lisp
@@ -48,8 +48,8 @@ (defwindow rolling-window () ("Rolling")
       (make-output "Length:" start-length))
     (within-group ("Initial stock")
       (make-radio-dep stock-type
-		      :round "Round section"
-		      :square "Square section")
+		      '(:round "Round section"
+			:square "Square section"))
       (make-input "Stock size:" stock-size)
       (make-output "Stock length:" stock-length))
     #+ no