Work in progress.

[jlisp] / rolling.lisp

diff --git a/rolling.lisp b/rolling.lisp
index 61874c7..7f9b342 100644 (file)
--- a/rolling.lisp
+++ b/rolling.lisp
@@ -48,8 +48,8 @@
       (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