--- rpl/src/rplexternals.h	2014/06/16 18:48:22	1.58
+++ rpl/src/rplexternals.h	2014/07/17 08:07:27	1.60
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
+  RPL/2 (R) version 4.1.19
   Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -977,6 +977,10 @@
 	} \
 	else executionError("Type mistmatch error"); } while(0)
 
+#define setSymbolicName(rpl_object, value) do { \
+	setName(rpl_object, value); \
+	(*((struct_nom *) (*rpl_object).objet)).symbole = d_vrai; } while(0)
+
 #define createNameObject(rpl_object) do { \
 	if (rpl_object != NULL) \
 		systemError("Reallocated object"); \