diff --git a/cpukit/score/src/objectsetname.c b/cpukit/score/src/objectsetname.c
index 009988b862..05e38e8ba8 100644
--- a/cpukit/score/src/objectsetname.c
+++ b/cpukit/score/src/objectsetname.c
@@ -41,6 +41,7 @@ Status_Control _Objects_Set_name(
       return STATUS_NO_MEMORY;
     }
 
+    _Workspace_Free( the_object->name.name_p );
     the_object->name.name_p = dup;
   } else {
     char c[ 4 ];