Mantis#1674. Thank you kindly, Matth for a patch that:

This patch fixes an error in llSetPrimitiveParams() that 
prevents correctly setting the type of the prim to SCULPT_TYPE.

2 files changed, 4 insertions, 2 deletions

diff --git a/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs b/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
index 2d858dc..8da164c 100644
--- a/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
+++ b/OpenSim/Region/ScriptEngine/Common/LSL_BuiltIn_Commands.cs
@@ -5086,6 +5086,7 @@ namespace OpenSim.Region.ScriptEngine.Common
             shapeBlock.PathCurve = m_host.Shape.PathCurve;
 
             m_host.Shape.SetSculptData((byte)type, sculptId);
+            m_host.Shape.SculptEntry = true;
             m_host.UpdateShape(shapeBlock);
         }
 
@@ -5187,7 +5188,7 @@ namespace OpenSim.Region.ScriptEngine.Common
                                 taper_b = new LSL_Types.Vector3(rules.Data[idx++].ToString());
                                 topshear = new LSL_Types.Vector3(rules.Data[idx++].ToString());
                                 m_host.Shape.PathCurve = (byte) Extrusion.Straight;
-                                SetPrimitiveShapeParams(face, v, hollow, twist, taper_b, topshear, 1);;
+                                SetPrimitiveShapeParams(face, v, hollow, twist, taper_b, topshear, 1);
                                 break;
                         
                             case (int)BuiltIn_Commands_BaseClass.PRIM_TYPE_CYLINDER:
diff --git a/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs
index 06f9f3b..0e85340 100644
--- a/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs
+++ b/OpenSim/Region/ScriptEngine/Shared/Api/Implementation/LSL_Api.cs
@@ -4896,6 +4896,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api
             shapeBlock.PathCurve = m_host.Shape.PathCurve;
 
             m_host.Shape.SetSculptData((byte)type, sculptId);
+            m_host.Shape.SculptEntry = true;
             m_host.UpdateShape(shapeBlock);
         }
 
@@ -4997,7 +4998,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.Api
                                 taper_b = new LSL_Types.Vector3(rules.Data[idx++].ToString());
                                 topshear = new LSL_Types.Vector3(rules.Data[idx++].ToString());
                                 m_host.Shape.PathCurve = (byte) Extrusion.Straight;
-                                SetPrimitiveShapeParams(face, v, hollow, twist, taper_b, topshear, 1);;
+                                SetPrimitiveShapeParams(face, v, hollow, twist, taper_b, topshear, 1);
                                 break;
                         
                             case (int)ScriptBaseClass.PRIM_TYPE_CYLINDER: