diff --git a/graphics/R-cran-GDD/Makefile b/graphics/R-cran-GDD/Makefile
index 438141bca1dc..488f89f783d3 100644
--- a/graphics/R-cran-GDD/Makefile
+++ b/graphics/R-cran-GDD/Makefile
@@ -1,20 +1,20 @@
 PORTNAME=	GDD
 DISTVERSION=	0.1-13.1
-PORTREVISION=	16
+PORTREVISION=	17
 CATEGORIES=	graphics
 DISTNAME=	${PORTNAME}_${DISTVERSION}
 
 MAINTAINER=	skreuzer@FreeBSD.org
 COMMENT=	Graphics device for R for creating bitmap output
 WWW=		http://www.rosuda.org/R/GDD/
 
 LICENSE=	GPLv2
 
 BUILD_DEPENDS=	libgd>=2.0.35_8,1:graphics/gd
 RUN_DEPENDS:=	${BUILD_DEPENDS}
 
 WRKSRC=		${WRKDIR}/${PORTNAME}
 
 USES=		cran:auto-plist,compiles
 
 .include <bsd.port.mk>
diff --git a/graphics/R-cran-GDD/files/patch-src_GDD.c b/graphics/R-cran-GDD/files/patch-src_GDD.c
new file mode 100644
index 000000000000..cac1a3015e01
--- /dev/null
+++ b/graphics/R-cran-GDD/files/patch-src_GDD.c
@@ -0,0 +1,11 @@
+--- src/GDD.c.orig	2026-05-09 14:15:06 UTC
++++ src/GDD.c
+@@ -192,7 +192,7 @@ SEXP gdd_create_new_device(SEXP args)
+ 	
+ 	UNPROTECT(2); /* file and type strings */
+ 	
+-	gsetVar(install(".Device"), mkString(devname), R_NilValue);
++        Rf_setVar(install(".Device"), mkString(devname), R_GlobalEnv);
+ 	dd = GEcreateDevDesc(dev);
+ 	GEaddDevice(dd);
+ 	GEinitDisplayList(dd);