diff --git a/src/spicelib/devices/res/res.c b/src/spicelib/devices/res/res.c
index 2b5f4c7dc..61449f300 100644
--- a/src/spicelib/devices/res/res.c
+++ b/src/spicelib/devices/res/res.c
@@ -54,8 +54,8 @@ IFparm RESmPTable[] = { /* model parameters */
     IOPQ(  "kf",     RES_MOD_KF,       IF_REAL,"Flicker noise coefficient"),
     IOPQ(  "af",     RES_MOD_AF,       IF_REAL,"Flicker noise exponent"),
     IOPXU( "tnom",   RES_MOD_TNOM,     IF_REAL,"Parameter measurement temperature"),
-    IOP(   "r",      RES_MOD_R,        IF_FLAG,"Resistor model default value"),
-    IOPR(  "res",    RES_MOD_R,        IF_FLAG,"Resistor model default value")
+    IOP(   "r",      RES_MOD_R,        IF_REAL,"Resistor model default value"),
+    IOPR(  "res",    RES_MOD_R,        IF_REAL,"Resistor model default value")
 };
 
 char *RESnames[] = {
diff --git a/src/spicelib/devices/res/resmpar.c b/src/spicelib/devices/res/resmpar.c
index 7e92919e1..d47e36202 100644
--- a/src/spicelib/devices/res/resmpar.c
+++ b/src/spicelib/devices/res/resmpar.c
@@ -58,10 +58,11 @@ RESmParam(int param, IFvalue *value, GENmodel *inModel)
         model->RESfNexp = value->rValue;
         model->RESfNexpGiven = TRUE;
         break;
-
     case RES_MOD_R:
-        model->RESres = value->rValue;
-        model->RESresGiven = TRUE;
+        if ( value->rValue > 1e-03 ) {
+            model->RESres = value->rValue;
+            model->RESresGiven = TRUE;
+        }
         break;
     default:
         return(E_BADPARM);
diff --git a/src/spicelib/devices/res/restemp.c b/src/spicelib/devices/res/restemp.c
index 16f32526a..9a93c9a7b 100644
--- a/src/spicelib/devices/res/restemp.c
+++ b/src/spicelib/devices/res/restemp.c
@@ -70,8 +70,8 @@ REStemp(GENmodel *inModel, CKTcircuit *ckt)
                         here->RESresist = model->RESres;
                     } else {
                         SPfrontEnd->IFerror (ERR_WARNING,
-                                             "%s: resistance = 0 ohm, set to 1000 ohm",&(here->RESname));
-                        here->RESresist=1000;
+                                             "%s: resistance to low, set to 1 mOhm",&(here->RESname));
+                        here->RESresist=1e-03;
                     }
                 }
             }