diff --git a/Lisp/ILSModulInsert.lsp b/Lisp/ILSModulInsert.lsp
index 21b027b..eaeba31 100644
--- a/Lisp/ILSModulInsert.lsp
+++ b/Lisp/ILSModulInsert.lsp
@@ -119,48 +119,48 @@
   (setq pickX (car pickPoint) pickY (cadr pickPoint))
   (setq tolerance 50.0)  ;; Toleranz 50mm
   
-  ;; Verbindungspunkte prüfen
+  ;; Verbindungspunkte pruefen
   (cond
     ;; T_O (Mittelpunkt obere Tangente)
-    ((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
-          (abs (- pickY (+ y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "T_O"))
-    
+
     ;; T_U (Mittelpunkt untere Tangente)
-    ((and (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 (/ abstand 2.0)))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "T_U"))
-    
+
     ;; M_O (Linker Kreis, oberer Rand)
-    ((and (abs (- pickX (+ x 400.0))) tolerance)
-          (abs (- pickY (+ y 400.0)))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "M_O"))
-    
+
     ;; M_U (Linker Kreis, unterer Rand)
-    ((and (abs (- pickX (+ x 400.0))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "M_U"))
-    
+
     ;; M_L (Linker Kreis, linker Rand)
-    ((and (abs (- pickX x)) tolerance)
-          (abs (- pickY y)) tolerance)
+    ((and (< (abs (- pickX x)) tolerance)
+          (< (abs (- pickY y)) tolerance))
      (setq type "M_L"))
-    
+
     ;; S_O (Rechter Kreis, oberer Rand)
-    ((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
-          (abs (- pickY (+ y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
+          (< (abs (- pickY (+ y 400.0))) tolerance))
      (setq type "S_O"))
-    
+
     ;; S_U (Rechter Kreis, unterer Rand)
-    ((and (abs (- pickX (+ x 400.0 abstand))) tolerance)
-          (abs (- pickY (- y 400.0))) tolerance)
+    ((and (< (abs (- pickX (+ x 400.0 abstand))) tolerance)
+          (< (abs (- pickY (- y 400.0))) tolerance))
      (setq type "S_U"))
-    
+
     ;; S_R (Rechter Kreis, rechter Rand)
-    ((and (abs (- pickX (+ x 800.0 abstand))) tolerance)
-          (abs (- pickY y)) tolerance)
+    ((and (< (abs (- pickX (+ x 800.0 abstand))) tolerance)
+          (< (abs (- pickY y)) tolerance))
      (setq type "S_R"))
-    
+
     (t (setq type "UNKNOWN"))
   )
   type