X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fvars-prs.c;h=6f3d7f3e279b3fd6745cc6dead6154ac98bf72b9;hb=77cbf2d7d1e5712d4ef952f265ed5c2917fc3f68;hp=8b15fd7bc91a8a1f44156788554028452ee58320;hpb=37597beca4a11edba50b847932fdfeca3a648fa2;p=pspp

diff --git a/src/vars-prs.c b/src/vars-prs.c
index 8b15fd7bc9..6f3d7f3e27 100644
--- a/src/vars-prs.c
+++ b/src/vars-prs.c
@@ -392,7 +392,8 @@ parse_DATA_LIST_vars (char ***names, int *nnames, int pv_opts)
 	  lex_error ("expecting variable name");
 	  goto fail;
 	}
-      if (tokid[0] == '#' && (pv_opts & PV_NO_SCRATCH))
+      if (dict_class_from_id (tokid) == DC_SCRATCH
+          && (pv_opts & PV_NO_SCRATCH))
 	{
 	  msg (SE, _("Scratch variables not allowed here."));
 	  goto fail;