diff --git a/ba/ba3700.cpp b/ba/ba3700.cpp
index 1d1272b8e..14ed26931 100755
--- a/ba/ba3700.cpp
+++ b/ba/ba3700.cpp
@@ -302,6 +302,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
   case K_SPACE:
     break;
   case K_ENTER:
+  {     
     ns  = shf->row(r);     
     ts  = (TToken_string&)(*rws)[r];    
     
@@ -314,7 +315,10 @@ bool BA3700_application::sheet_action(int r, KEY k)
     {                            
       mod  = m_scad = TRUE;        
     }
-    if (real(ts.get(1)) != real(newp))  // modificata percentuale
+    const real p0(ts.get(1));
+    const real p1(newp);
+
+    if (p0 != p1)  // modificata percentuale
     {                
       mod  = m_perc = TRUE;        
     }
@@ -322,6 +326,7 @@ bool BA3700_application::sheet_action(int r, KEY k)
     {                 
       mod  = m_tipo = TRUE;      
     }
+  }
     break;
   case K_DEL:
   case K_INS: