diff --git a/src/frontend/com_plot.c b/src/frontend/com_plot.c
index 0e2a7a0c2..77c5f7577 100644
--- a/src/frontend/com_plot.c
+++ b/src/frontend/com_plot.c
@@ -25,18 +25,23 @@ com_bltplot(wordlist *wl)
 
 #endif
 
+/* Evaluate the command clip v(1) xmin xmax
+   xmin and xmax may be expressions of single valued vectors or real numbers.
+   Then call vec_clip() to do the clipping */
 void
 com_clip(wordlist *wl)
 {
-    int err;
+    struct pnode *names;
+    struct dvec *vec;
     double xmin, xmax;
     char *vecname = wl->wl_word;
     wl = wl->wl_next;
-    char *mword = wl->wl_word;
-    xmin = INPevaluate(&mword, &err, TRUE);
-    wl = wl->wl_next;
-    mword = wl->wl_word;
-    xmax = INPevaluate(&mword, &err, TRUE);
+    names = ft_getpnames(wl, TRUE);
+    vec = ft_evaluate(names);
+    xmin = vec->v_realdata[0];
+    names = names->pn_next;
+    vec = ft_evaluate(names);
+    xmax = vec->v_realdata[0];
     vec_clip(vecname, xmin, xmax);
 }