From 15a2f423f0ea1de799f88ff78bcc8237e0afb5c8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 24 Mar 2016 13:16:42 +0000
Subject: [PATCH 0239/1800] oops

---
 generic/tclOOMethod.c | 4 +---
 1 file changed, 1 insertions(+), 3 deletions(-)

diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c
index c65003f..0c7884a 100644
--- a/generic/tclOOMethod.c
+++ b/generic/tclOOMethod.c
@@ -1548,9 +1548,7 @@ TclOOGetMethodBody(
     if (mPtr->typePtr == &procMethodType) {
 	ProcedureMethod *pmPtr = (ProcedureMethod *)mPtr->clientData;
 
-	if (pmPtr->procPtr->bodyPtr->bytes == NULL) {
-	    (void) Tcl_GetString(pmPtr->procPtr->bodyPtr);
-	}
+	(void) TclGetString(pmPtr->procPtr->bodyPtr);
 	return pmPtr->procPtr->bodyPtr;
     }
     return NULL;
-- 
2.27.0