From 075a2c65ccd543ec45350b961a4b1d53454c7af9 Mon Sep 17 00:00:00 2001
From: hornik <hornik@00db46b3-68df-0310-9c12-caf00c1e9a41>
Date: Tue, 18 Jul 2023 11:19:19 +0000
Subject: [PATCH] Tweaks for c84610.

git-svn-id: https://svn.r-project.org/R/trunk@84703 00db46b3-68df-0310-9c12-caf00c1e9a41
---
 src/library/base/R/version.R | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/library/base/R/version.R b/src/library/base/R/version.R
index f66a90327dc..bf3f8743a8d 100644
--- a/src/library/base/R/version.R
+++ b/src/library/base/R/version.R
@@ -45,16 +45,18 @@ function(x, strict = TRUE, regexp, classes = NULL)
     if(!is.character(x)) {
         msg <- gettextf("invalid non-character version specification 'x' (type: %s)",
                         typeof(x))
+        warning(msg, domain = NA, immediate. = TRUE)        
         if(nzchar(Sys.getenv("_R_CALLS_INVALID_NUMERIC_VERSION_"))) {
+            ## Showing the call stack as part of warning() may truncate,
+            ## so do it via message() ...
             calls <- sys.calls()
-            msg <- paste0(msg, "\n",
-                          gettext("Calls"), ":\n",
+            msg <- paste0(gettext("Calls"), ":\n",
                           paste0(sprintf("%2i: ", seq_along(calls)),
                                  vapply(calls, deparse1, "",
                                         collapse = "\n    "),
                                  collapse = "\n"))
+            message(msg, domain = NA)
         }
-        warning(msg, domain = NA, immediate. = TRUE)
     }
     x <- as.character(x)
     y <- rep.int(list(integer()), length(x))