Work in progress.

[jlisp] / rolling.lisp

diff --git a/rolling.lisp b/rolling.lisp
index 61874c7334e9d7430eb58a846cc8818c260ba65b..7f9b34203774368c68203ff47f63497d0f961a7f 100644 (file)
--- 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