diff --git a/Lisp/ssg_core.lsp b/Lisp/ssg_core.lsp
index 03c945f..054b481 100644
--- a/Lisp/ssg_core.lsp
+++ b/Lisp/ssg_core.lsp
@@ -440,13 +440,13 @@
 ;; (Gefaellestrecke + VarioFoerderer, feste Reihenfolge)
 ;; ============================================================
 ;; Vorderteil (immer vorhanden). Bezeichnung = Blockname (GF_n/VF_n),
-;; Artinr. fest 6220 (alle GF/VF). TYP-Wert wird zur Laufzeit gesetzt.
+;; ARTINR fest 6220 (alle GF/VF). TYP-Wert wird zur Laufzeit gesetzt.
 ;; ID zuerst (global, jeder eingefuegte Baustein - Kreisel/GF/VF - erhaelt eine
 ;; neue ID), danach Bezeichnung (= Blockname). Hoehen/Delta mit Einheit _mm.
 (setq *strecke-attr-front*
   '(("ID"                   "")
     ("Bezeichnung"          "")
-    ("Artinr."              "6220")
+    ("ARTINR"               "6220")
     ("MONTAGEHOEHE_m"       "0.000")
     ("HOEHE_VON_mm"         "0")
     ("HOEHE_BIS_mm"         "0")
diff --git a/Lisp/vf_core.lsp b/Lisp/vf_core.lsp
index 25883bd..61f5bcd 100644
--- a/Lisp/vf_core.lsp
+++ b/Lisp/vf_core.lsp
@@ -1116,7 +1116,7 @@
       (ssg-attrib-set-on vf-insert
         (list
           (cons "Bezeichnung"          vf-bname)
-          ;; Artinr. bleibt auf Schema-Vorgabe "6220"
+          ;; ARTINR bleibt auf Schema-Vorgabe "6220"
           (cons "MONTAGEHOEHE_m"       (rtos montagehoehe-m 2 3))
           (cons "HOEHE_VON_mm"         (itoa (fix hoehe-von)))
           (cons "HOEHE_BIS_mm"         (itoa (fix hoehe-bis)))