From e6e33a78e06a23a678957079cbadf2ff233b1269 Mon Sep 17 00:00:00 2001
From: abd <abd@opencascade.com>
Date: Fri, 30 Jun 2006 12:35:25 +0000
Subject: [PATCH] fix PAL10324 by eap

---
 src/GEOMImpl/GEOMImpl_FilletDriver.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GEOMImpl/GEOMImpl_FilletDriver.cxx b/src/GEOMImpl/GEOMImpl_FilletDriver.cxx
index dcebfc630..3114733df 100644
--- a/src/GEOMImpl/GEOMImpl_FilletDriver.cxx
+++ b/src/GEOMImpl/GEOMImpl_FilletDriver.cxx
@@ -110,7 +110,7 @@ Standard_Integer GEOMImpl_FilletDriver::Execute(TFunction_Logbook& log) const
   }
 
   for (int i = 1; i <= fill.NbContours(); i++) {
-    fill.SetRadius(aCI.GetR(), i, i);
+    fill.SetRadius(aCI.GetR(), i, 1);
   }
   fill.Build();
   if (!fill.IsDone()) {
-- 
2.39.2