diff --git a/src/StepToGeom/StepToGeom_MakeLine.cxx b/src/StepToGeom/StepToGeom_MakeLine.cxx
index 2c9355a777..67b53bc0a0 100755
--- a/src/StepToGeom/StepToGeom_MakeLine.cxx
+++ b/src/StepToGeom/StepToGeom_MakeLine.cxx
@@ -32,6 +32,7 @@
 #include <gp_Pnt.hxx>
 #include <gp_Vec.hxx>
 #include <gp_Dir.hxx>
+#include <Precision.hxx>
 
 //=============================================================================
 // Creation d' une Line de Geom a partir d' une Line de Step
@@ -46,6 +47,8 @@ Standard_Boolean StepToGeom_MakeLine::Convert (const Handle(StepGeom_Line)& SC,
     Handle(Geom_VectorWithMagnitude) D;
     if (StepToGeom_MakeVectorWithMagnitude::Convert(SC->Dir(),D))
     {
+      if( D->Vec().SquareMagnitude() < Precision::Confusion() * Precision::Confusion())
+        return Standard_False;
       const gp_Dir V(D->Vec());
       CC = new Geom_Line(P->Pnt(), V);
       return Standard_True;
diff --git a/tests/bugs/step/bug24383 b/tests/bugs/step/bug24383
new file mode 100755
index 0000000000..00c27bd1c7
--- /dev/null
+++ b/tests/bugs/step/bug24383
@@ -0,0 +1,10 @@
+puts "============"
+puts "OCC24383"
+puts "============"
+puts ""
+#######################################################################
+# Access violation during STEP file import
+#######################################################################
+
+ReadStep D [locate_data_file bug24383_224013.stp]
+