diff --git a/src/include/array.cpp b/src/include/array.cpp
index 2fe30fa95..7e1e559fd 100755
--- a/src/include/array.cpp
+++ b/src/include/array.cpp
@@ -602,6 +602,13 @@ TArray& objptr2array(TObject* obj)
 //  TString_array
 ///////////////////////////////////////////////////////////
 
+const char * TString_array::crow(int n)
+{ 
+  TToken_string* str = (TToken_string*)objptr(n);
+
+  return (str == nullptr ? "" : (const char *)*str);
+}
+
 int TString_array::add(const char* s, int n)
 {
   if (objptr(n) == NULL) 
diff --git a/src/include/array.h b/src/include/array.h
index 494161cc7..19ffca91c 100755
--- a/src/include/array.h
+++ b/src/include/array.h
@@ -251,6 +251,7 @@ public:
   // @cmember Restituisce il puntatore alla stringa n dell'array (NULL se non esiste)
   TToken_string* rowptr(int n)
   { return (TToken_string*)objptr(n); }
+  const char * crow(int n);
 	// @cmember Ritorna la stringa n dell'array (se non c'e' ritorna errore)
 	TToken_string& operator[] (int n) const { return (TToken_string&)TArray::operator[](n); }
   // @cmember assegnamento di un array