diff --git a/Lisp/ssg_ks_insert.lsp b/Lisp/ssg_ks_insert.lsp
index 460d308..6bc1781 100644
--- a/Lisp/ssg_ks_insert.lsp
+++ b/Lisp/ssg_ks_insert.lsp
@@ -248,7 +248,7 @@
         )
       )
       (princ (ssg-textf "vfc-fuege-ein-lwhz"
-        (list blockname (rtos laenge 2 2) (itoa winkel) (chr 176) (rtos (float hz) 2 1) (chr 176))))
+        (list blockname (rtos laenge 2 2) (itoa (fix winkel)) (chr 176) (rtos (float hz) 2 1) (chr 176))))
       (setq scale (/ laenge (ssg-cfg-or "vario" "skalierung_basis" 1000.0)))
       (setq rad-v (* (float winkel) (/ pi 180.0)))
       (setq rad-h (* (float hz)     (/ pi 180.0)))
@@ -298,7 +298,7 @@
         )
       )
       (princ (ssg-textf "vfc-fuege-block-ein-rotation-hz"
-        (list blockname (itoa winkel) (chr 176) (rtos (float hz) 2 1) (chr 176))))
+        (list blockname (itoa (fix winkel)) (chr 176) (rtos (float hz) 2 1) (chr 176))))
       (setq rad-v (* winkel (/ pi 180.0)))
       (setq rad-h (* (float hz) (/ pi 180.0)))
       (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))