1.1 --- a/core/systems/ForwardSys.cpp	Thu Nov 16 22:37:37 2006 +0000
     1.2 +++ b/core/systems/ForwardSys.cpp	Fri Nov 17 23:22:32 2006 +0000
     1.3 @@ -17,7 +17,7 @@
     1.4   * X Push floats
     1.5   * X Push floats byref (copyback tested = yes)
     1.6   * X Push arrays  (copyback tested = yes)
     1.7 - * - Push strings (copyback tested = ??)
     1.8 + * X Push strings (copyback tested = yes)
     1.9   * VARARG FUNCTIONS:
    1.10   * - Pushing no varargs
    1.11   * - Push vararg cells (copyback should be verified to not happen = ??)
    1.12 @@ -453,7 +453,7 @@
    1.13  		if (m_types[m_curparam] == Param_Any)
    1.14  		{
    1.15  			m_params[m_curparam].pushedas = Param_String;
    1.16 -		} else if (m_types[m_curparam] == Param_String) {
    1.17 +		} else if (m_types[m_curparam] != Param_String) {
    1.18  			return SetError(SP_ERROR_PARAM);
    1.19  		}
    1.20  	} else {
    1.21 @@ -477,7 +477,7 @@
    1.22  		if (m_types[m_curparam] == Param_Any)
    1.23  		{
    1.24  			m_params[m_curparam].pushedas = Param_String;
    1.25 -		} else if (m_types[m_curparam] == Param_String) {
    1.26 +		} else if (m_types[m_curparam] != Param_String) {
    1.27  			return SetError(SP_ERROR_PARAM);
    1.28  		}
    1.29  	} else {